FUNCTION TESTE(FORM,TXT)
THISFORM.LABEL1.CAPTION=TXT